O objeto is consegue identificar se é dígito(Numérico-0 a 9), letra(A a Z e a a z), espaço em branco ou pontuação.

Module ObjetoIS

    'determinação do tipo de dado

    '            char meuchar = 'a';        //letra
    '            char meuchar = 'A';        //letra
    '            char meuchar = '5';        //digito
    '            char meuchar = '.';        //pontuação
    '            char meuchar = ',';        //pontuação
    '            char meuchar = ' ';        //espaço
    '            char meuchar = '\n';    //crlf
    ' Dim meuchar As Char = "\t" 'espaço

    Function ENumerico(dado As Object) As Boolean
        'É um dígito Numérico(0 a 9)
        If Char.IsDigit(dado) Then
            Return True
        Else
            Return False
        End If
    End Function

    Function ELetra(dado As Object) As Boolean
        'É uma letra(A a Z e a a z)
        If Char.IsLetter(dado) Then
            Return True
        Else
            Return False
        End If
    End Function

    Function EEspacoEmBranco(dado As Object) As Boolean
        If Char.IsWhiteSpace(dado) Then
            Return True
        Else
            Return False
        End If
    End Function

    Function EPontuacao(dado As Object) As Boolean
        If Char.IsPunctuation(dado) Then
            Return True
        Else
            Return False
        End If
    End Function

End Module